inherited FcancelamentoCheque: TFcancelamentoCheque
  Left = 231
  Top = 116
  Caption = 'Alterar / Excluir Lanc. Cheque'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      TabVisible = False
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          TabOrder = 0
          inherited SBAtualiza: TSpeedButton
            Left = 1120
            Enabled = False
          end
          inherited BtnIncluir: TBitBtn
            Left = 7
            TabOrder = 1
          end
          inherited BtnEditar: TBitBtn
            Left = 893
            TabOrder = 0
            Visible = False
          end
          inherited BtnExcluir: TBitBtn [3]
            Left = 890
            Visible = False
          end
          inherited DBNavigator1: TDBNavigator [4]
            Left = 1007
            DataSource = DSCAncelamentoCheque
            Hints.Strings = ()
          end
          inherited BtnFechar: TBitBtn [5]
            Left = 684
            Width = 144
          end
          inherited streg: TStaticText
            Left = 883
          end
        end
        inherited panel3: TPanel
          TabOrder = 1
          inherited BtnSalvar: TBitBtn [3]
            Left = 632
            Top = 10
            Enabled = False
          end
          inherited BtnCancelar: TBitBtn [4]
            Left = 847
            Visible = False
          end
          inherited BtnConsuta: TBitBtn [5]
            Enabled = False
          end
          inherited stSituacaoReg2: TStaticText
            Visible = False
          end
          object BitBtn2: TBitBtn
            Tag = 1
            Left = 738
            Top = 9
            Width = 100
            Height = 25
            Caption = '&Cancelar'
            TabOrder = 4
            OnClick = BtnCancelarClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
              33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
              993337777F777F3377F3393999707333993337F77737333337FF993399933333
              399377F3777FF333377F993339903333399377F33737FF33377F993333707333
              399377F333377FF3377F993333101933399377F333777FFF377F993333000993
              399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
              99333773FF777F777733339993707339933333773FF7FFF77333333999999999
              3333333777333777333333333999993333333333377777333333}
            NumGlyphs = 2
          end
        end
        object Panel4: TPanel
          Left = 1
          Top = 396
          Width = 842
          Height = 29
          Align = alBottom
          Alignment = taRightJustify
          Color = clBtnHighlight
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          object lbQtdLanc: TLabel
            Left = 6
            Top = 6
            Width = 5
            Height = 16
          end
        end
        object GroupBox1: TGroupBox
          Left = 1
          Top = 36
          Width = 842
          Height = 360
          Align = alClient
          Enabled = False
          TabOrder = 3
          object Label2: TLabel
            Left = 5
            Top = 33
            Width = 87
            Height = 16
            Caption = 'Conta Corrente'
          end
          object Cheque: TLabel
            Left = 445
            Top = 33
            Width = 44
            Height = 16
            Caption = 'Cheque'
          end
          object Label5: TLabel
            Left = 5
            Top = 63
            Width = 100
            Height = 16
            Caption = 'Data de Emiss'#227'o'
          end
          object Label6: TLabel
            Left = 445
            Top = 63
            Width = 30
            Height = 16
            Caption = 'Valor'
          end
          object Label7: TLabel
            Left = 5
            Top = 93
            Width = 92
            Height = 16
            Caption = 'Motivo Cancela.'
          end
          object DBText1: TDBText
            Left = 122
            Top = 12
            Width = 80
            Height = 21
            DataField = 'OIDCHEQUE'
            DataSource = DSCAncelamentoCheque
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 4
            Top = 241
            Width = 323
            Height = 16
            Caption = 'Itens '#224' Serem Cancelados da Tabela de Lan'#231'amento '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label9: TLabel
            Left = 5
            Top = 152
            Width = 47
            Height = 16
            Caption = 'Esp'#233'cie'
          end
          object Label10: TLabel
            Left = 5
            Top = 201
            Width = 44
            Height = 16
            Caption = 'Cheque'
          end
          object Label15: TLabel
            Left = 70
            Top = 201
            Width = 75
            Height = 16
            Caption = 'Data Cheque'
          end
          object Label11: TLabel
            Left = 175
            Top = 201
            Width = 47
            Height = 16
            Caption = 'Nominal'
          end
          object Label1: TLabel
            Left = 6
            Top = 12
            Width = 40
            Height = 16
            Caption = 'C'#243'digo'
          end
          object Label4: TLabel
            Left = 179
            Top = 153
            Width = 87
            Height = 16
            Caption = 'Conta Corrente'
          end
          object DBGrid1: TDBGrid
            Left = 2
            Top = 261
            Width = 838
            Height = 97
            TabStop = False
            Align = alBottom
            DataSource = DSLancamento
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = 'Arial'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'LANC_HISTORICO1'
                Title.Alignment = taCenter
                Title.Caption = 'Hist'#243'rico'
                Width = 423
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'LANC_VALOR'
                Title.Alignment = taCenter
                Title.Caption = 'Valor'
                Visible = True
              end>
          end
          object DBLCBConta: TDBLookupComboBox
            Left = 121
            Top = 33
            Width = 316
            Height = 24
            KeyField = 'CONT_CORR_CODIGO'
            ListField = 'CONT_CORR_DESCRICAO'
            ListSource = DSConta
            TabOrder = 1
            OnExit = DBLCBContaExit
            OnKeyDown = DBLCBContaKeyDown
          end
          object edNChequeBusca: TEdit
            Left = 505
            Top = 33
            Width = 119
            Height = 24
            TabOrder = 2
          end
          object Datar: TDateEdit
            Left = 121
            Top = 63
            Width = 110
            Height = 26
            ButtonWidth = 26
            NumGlyphs = 2
            TabOrder = 3
          end
          object DBEDIT17: TEdit
            Left = 121
            Top = 93
            Width = 502
            Height = 24
            TabOrder = 5
          end
          object cbExcluiLancto: TCheckBox
            Tag = 2
            Left = 5
            Top = 128
            Width = 178
            Height = 21
            Caption = 'Excluir Lan'#231'amentos?'
            TabOrder = 7
            OnClick = cbExcluiLanctoClick
          end
          object DBLCBEspecie: TDBLookupComboBox
            Tag = 2
            Left = 5
            Top = 169
            Width = 164
            Height = 24
            KeyField = 'ESP_CODIGO'
            ListField = 'ESP_DESCRICAO'
            ListSource = DSEspecie
            TabOrder = 8
            OnExit = DBLCBEspecieExit
          end
          object edDataCheque: TDateEdit
            Tag = 2
            Left = 70
            Top = 218
            Width = 99
            Height = 26
            ButtonWidth = 26
            NumGlyphs = 2
            TabOrder = 9
          end
          object edNCheque: TEdit
            Tag = 2
            Left = 5
            Top = 218
            Width = 60
            Height = 24
            TabOrder = 10
          end
          object edNominal: TEdit
            Tag = 2
            Left = 175
            Top = 218
            Width = 450
            Height = 24
            TabOrder = 11
          end
          object edValorChequeBusca: TRxCalcEdit
            Left = 505
            Top = 59
            Width = 119
            Height = 26
            AutoSize = False
            DisplayFormat = '#,##0.00'
            ButtonWidth = 25
            NumGlyphs = 2
            TabOrder = 4
          end
          object btnConsultar: TBitBtn
            Left = 468
            Top = 127
            Width = 155
            Height = 25
            Caption = 'C&onsulta'
            TabOrder = 6
            OnClick = btnConsultarClick
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000010000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
              77777000000070000000007777777000000070FFFFFFF07777700000000070F7
              7777F07777000000000070F77777F07770007000000070F77780008700077000
              000070F7700FFF0000777000000070F708FFFF0807777000000070F80E000F07
              08777000000070F0EFEFEF0770777000000070F0F0000F077077700000007000
              EFEFFF0770777000000077780000000708777000000077770077777807777000
              0000777770077700777770000000777777800087777770000000777777777777
              777770000000}
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 177
            Top = 169
            Width = 316
            Height = 24
            KeyField = 'CONT_CORR_CODIGO'
            ListField = 'CONT_CORR_DESCRICAO'
            ListSource = DSConta
            TabOrder = 12
            OnExit = DBLCBContaExit
            OnKeyDown = DBLCBContaKeyDown
          end
        end
      end
    end
    inherited tsUsuario: TTabSheet
      TabVisible = False
    end
    inherited tsAjuda: TTabSheet
      TabVisible = False
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 552
    Top = 344
  end
  inherited QCadastro: TQuery
    Left = 24
    Top = 96
  end
  inherited dspCadastro: TDataSetProvider
    Left = 104
    Top = 192
  end
  inherited cdsCadastro: TClientDataSet
    Left = 224
    Top = 176
  end
  inherited OpenDialog1: TOpenDialog
    Left = 688
  end
  object DSLancamento: TDataSource
    DataSet = QLAncamento
    Left = 648
    Top = 336
  end
  object DSCAncelamentoCheque: TDataSource
    DataSet = TCAncelamento
    Left = 352
    Top = 376
  end
  object QLAncamento: TQuery
    AutoRefresh = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT LANCAMENTO.*,PLANOCONTAS.NATUREZA FROM LANCAMENTO'
      
        'INNER JOIN PLANOCONTAS ON(PLANOCONTAS.CODIGO = LANCAMENTO.LANC_P' +
        'LANO)')
    Left = 648
    Top = 280
    object QLAncamentoLANC_CODIGO: TIntegerField
      FieldName = 'LANC_CODIGO'
      Origin = 'BASE.LANCAMENTO.LANC_CODIGO'
    end
    object QLAncamentoLANC_DATA: TDateTimeField
      FieldName = 'LANC_DATA'
      Origin = 'BASE.LANCAMENTO.LANC_DATA'
    end
    object QLAncamentoLANC_CONTA: TIntegerField
      FieldName = 'LANC_CONTA'
      Origin = 'BASE.LANCAMENTO.LANC_CONTA'
    end
    object QLAncamentoLANC_CPCR: TStringField
      FieldName = 'LANC_CPCR'
      Origin = 'BASE.LANCAMENTO.LANC_CPCR'
      Size = 1
    end
    object QLAncamentoLANC_TITULO: TIntegerField
      FieldName = 'LANC_TITULO'
      Origin = 'BASE.LANCAMENTO.LANC_TITULO'
    end
    object QLAncamentoLANC_DOCUMENTO: TStringField
      FieldName = 'LANC_DOCUMENTO'
      Origin = 'BASE.LANCAMENTO.LANC_DOCUMENTO'
      Size = 10
    end
    object QLAncamentoLANC_PLANO: TIntegerField
      FieldName = 'LANC_PLANO'
      Origin = 'BASE.LANCAMENTO.LANC_PLANO'
    end
    object QLAncamentoLANC_ESPECIE: TIntegerField
      FieldName = 'LANC_ESPECIE'
      Origin = 'BASE.LANCAMENTO.LANC_ESPECIE'
    end
    object QLAncamentoLANC_CHEQUE: TStringField
      FieldName = 'LANC_CHEQUE'
      Origin = 'BASE.LANCAMENTO.LANC_CHEQUE'
      Size = 6
    end
    object QLAncamentoLANC_NOMINAL: TStringField
      FieldName = 'LANC_NOMINAL'
      Origin = 'BASE.LANCAMENTO.LANC_NOMINAL'
      Size = 60
    end
    object QLAncamentoLANC_VALOR: TFloatField
      FieldName = 'LANC_VALOR'
      Origin = 'BASE.LANCAMENTO.LANC_VALOR'
      DisplayFormat = '#,##0.00'
    end
    object QLAncamentoLANC_TIPOMULTA: TStringField
      FieldName = 'LANC_TIPOMULTA'
      Origin = 'BASE.LANCAMENTO.LANC_TIPOMULTA'
      Size = 1
    end
    object QLAncamentoLANC_MULTA: TFloatField
      FieldName = 'LANC_MULTA'
      Origin = 'BASE.LANCAMENTO.LANC_MULTA'
    end
    object QLAncamentoLANC_TIPOJUROS: TStringField
      FieldName = 'LANC_TIPOJUROS'
      Origin = 'BASE.LANCAMENTO.LANC_TIPOJUROS'
      Size = 1
    end
    object QLAncamentoLANC_JUROS: TFloatField
      FieldName = 'LANC_JUROS'
      Origin = 'BASE.LANCAMENTO.LANC_JUROS'
    end
    object QLAncamentoUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.LANCAMENTO.USUARIO'
      Size = 10
    end
    object QLAncamentoDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.LANCAMENTO.DATAMODIFICACAO'
    end
    object QLAncamentoCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.LANCAMENTO.CODIGOEMPRESA'
    end
    object QLAncamentoLANC_JUROSMULTA: TFloatField
      FieldName = 'LANC_JUROSMULTA'
      Origin = 'BASE.LANCAMENTO.LANC_JUROSMULTA'
    end
    object QLAncamentoLANC_DATACHEQUE: TDateTimeField
      FieldName = 'LANC_DATACHEQUE'
      Origin = 'BASE.LANCAMENTO.LANC_DATACHEQUE'
    end
    object QLAncamentoLANC_PLANOJUROSMULTA: TIntegerField
      FieldName = 'LANC_PLANOJUROSMULTA'
      Origin = 'BASE.LANCAMENTO.LANC_PLANOJUROSMULTA'
    end
    object QLAncamentoLANC_PLANODESCONTO: TIntegerField
      FieldName = 'LANC_PLANODESCONTO'
      Origin = 'BASE.LANCAMENTO.LANC_PLANODESCONTO'
    end
    object QLAncamentoLANC_CENTROCUSTO: TIntegerField
      FieldName = 'LANC_CENTROCUSTO'
      Origin = 'BASE.LANCAMENTO.LANC_CENTROCUSTO'
    end
    object QLAncamentoLANC_CONTACONTABIL: TIntegerField
      FieldName = 'LANC_CONTACONTABIL'
      Origin = 'BASE.LANCAMENTO.LANC_CONTACONTABIL'
    end
    object QLAncamentoLANC_TRANSFERENCIA: TIntegerField
      FieldName = 'LANC_TRANSFERENCIA'
      Origin = 'BASE.LANCAMENTO.LANC_TRANSFERENCIA'
    end
    object QLAncamentoLANC_HISTORICO1: TStringField
      FieldName = 'LANC_HISTORICO1'
      Origin = 'BASE.LANCAMENTO.LANC_HISTORICO1'
      Size = 52
    end
    object QLAncamentoLANC_HISTORICO2: TStringField
      FieldName = 'LANC_HISTORICO2'
      Origin = 'BASE.LANCAMENTO.LANC_HISTORICO2'
      Size = 52
    end
    object QLAncamentoORIGEM: TIntegerField
      FieldName = 'ORIGEM'
      Origin = 'BASE.LANCAMENTO.ORIGEM'
    end
    object QLAncamentoCONCILIADO: TStringField
      FieldName = 'CONCILIADO'
      Origin = 'BASE.LANCAMENTO.CONCILIADO'
      Size = 1
    end
    object QLAncamentoLANC_CAT_LANCTO: TIntegerField
      FieldName = 'LANC_CAT_LANCTO'
      Origin = 'BASE.LANCAMENTO.LANC_CAT_LANCTO'
    end
    object QLAncamentoAUTORIZANTE: TIntegerField
      FieldName = 'AUTORIZANTE'
      Origin = 'BASE.LANCAMENTO.AUTORIZANTE'
    end
    object QLAncamentoNATUREZA: TStringField
      FieldName = 'NATUREZA'
      Origin = 'BASE.PLANOCONTAS.NATUREZA'
    end
  end
  object TCAncelamento: TTable
    DatabaseName = 'base'
    TableName = 'CANCELAMENTOCHEQUE'
    Left = 384
    Top = 376
  end
  object DSConta: TDataSource
    DataSet = DMFinanceiro.QConta
    Left = 704
    Top = 144
  end
  object QConta: TQuery
    AutoRefresh = True
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'select * FROM contaCorrente')
    Left = 728
    Top = 200
  end
  object DSEspecie: TDataSource
    DataSet = DMFinanceiro.QEspecie
    Left = 168
    Top = 160
  end
  object Qaux: TQuery
    DatabaseName = 'base'
    Left = 264
    Top = 160
  end
end
